home *** CD-ROM | disk | FTP | other *** search
/ What CD? 12 / What PC June 1997.iso / multi / cyber / cyber95 / _setup.1 / HORN4.POP < prev    next >
Encoding:
Text File  |  1996-09-02  |  1.2 KB  |  52 lines
  1. population 0
  2. dimensions = 1
  3. colour_model RGB
  4. render_quality flat
  5.  
  6. genome 0 {
  7.     // initialise turtle
  8.     noseUp( 1.570770 ),
  9.     setColour( hsv<.5,.5,.75> : hsv<0,.2,.5> : hsv<.99999,.99999,.99999> ),
  10.     eggScale( 0.75 : 0.2 : 1 ),
  11.  
  12.     // make the reflected helix structure
  13.     *reflect(
  14.         <-1,1,1>,
  15.         repeat(
  16.             1 : 1 : 60,  // #segments
  17.             join(
  18.                 // 'lay' a single segment
  19.                 scope(
  20.                     noseDown( dtor(90 : 45 : 135) ),
  21.                     // lay the cross-bar
  22.                     *scope(
  23.                         setTexture( norder false:toggle ),
  24.                         setBitmap( norder 0 : 0 : 20 ),
  25.                         setWrap( norder 0 : 0 : 2 ),
  26.                         eggVectorScale( <1,1,4> : <1,1,1> : <1,1,8> ),
  27.                         egg( norder 3 : 0 : 20 ),
  28.                         moveHue( -0.2 : -0.3 : 0.3 ),
  29.                         lay
  30.                     ),
  31.                     // lay the end-marker
  32.                     forward( 2 : -4 : 4 ),
  33.                     egg( norder 2 : 0 : 20 ),
  34.                     setTexture( norder false:toggle ),
  35.                     setBitmap( norder 0 : 0 : 20 ),
  36.                     setWrap( norder 0 : 0 : 2 ),
  37.                     scope(
  38.                         rotate( <0,0,0> : <-2,-2,-2> : <2,2,2> ),
  39.                         forward( 0 : -2 : 2 ),
  40.                         lay
  41.                     )
  42.                 ),
  43.                 // inter-segment code
  44.                 *forward( 0.3 : -0.5 : 0.5 ),
  45.                 scale( .95 : .9 : 1.1 ),
  46.                 bankLeft( dtor(10 : -25 : 25) ),
  47.                 moveHue( 0.01 : 0.005 : 0.05 )
  48.             )
  49.         )
  50.     )
  51. }
  52.